home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
dlscr.zip
/
GEKXDL.T
< prev
next >
Wrap
Text File
|
1987-11-10
|
735b
|
23 lines
:: This Pro-YAM/ZCOMM script downloads a file after it is listed by
:: the GEnie browse or download menu choices with XMODEM (OverThruster).
:: Enable this with:
:: set f3 "@set s5 xx; source %lib/gekxdl.t"
:: set f8 "@set s5 x; source %lib/gekxdl.t"
:: Then at the selection, F3 or F8 grabs the file.
:: Besure to try different values for the O parameter (OverThruster)
::
if "!h^Number:" echo "Can't find Number"; return
ss y "(Name: )(.*)"
setc s0 "\L%z2"
if f%s0 echo "%s0 Exists: No Action taken."; return
echo "File name is %s0"
ss yf "(Bytes: )(.*)"
ss yf "(Bytes: )(.*)"
put "d\r"
pat 1 "receive file."
wait -f20
estimate %z2
pat
if %s5>1 rc -y "%s0"; return
ro -y "%s0"; return